home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / example26.AMOS / example26.amosSourceCode
AMOS Source Code  |  1992-03-06  |  1KB  |  57 lines
  1. '==================  
  2. 'EXAMPLE PROGRAM 26  
  3. '==================  
  4. '
  5. 'This calls the procedure _LHA 
  6. '----------------------------
  7. _LHA
  8. '
  9. '
  10. Procedure _LHA
  11. Screen Open 0,640,250,4,Hires
  12. Flash Off : Curs Off : Paper 0 : Pen 2 : Cls 0
  13. Centre "A.M.O.S.Z.I.N.E  LHA DE-ARCHIVER V1.0"
  14. Print : Print 
  15. Wait 75
  16.  
  17.  
  18. 'Copy LHA from the C directory of DF0: to RAM: 
  19. '----------------------------------------------
  20. Amos To Back 
  21. COMMAND$="df0:c/copy df0:c/lha ram:"
  22. Dreg(1)=Varptr(COMMAND$)
  23. Dreg(2)=0
  24. Dreg(3)=0
  25. XEXECUTE=Doscall(-222)
  26. Amos To Front 
  27.  
  28.  
  29. 'Allow user to select an archive to extract  
  30. '------------------------------------------
  31. Dir$="df0:"
  32. S$=Fsel$("*.lha","","PLEASE SELECT A .LHA FILE","")
  33. C$=Right$(S$,4)
  34. If C$<>".lha" or(Exist(S$)=0) or(S$="") Then Cls 0 : Print "INVALID SELECTION,ABORTING " : Wait 100 : Screen Close 6 : Kill "RAM:LHA" : Dir$=DI$ : Pop Proc
  35. '
  36. Print "Please insert a blank formatted disk (or a disk with a lot of space) in DF0:"
  37. Print "and then press any key to de-archive your selected file."
  38. Clear Key 
  39. Wait Key 
  40.  
  41.  
  42. 'Extract the archive and de-archive onto disk in DF0:
  43. '----------------------------------------------------- 
  44. Amos To Back 
  45. COMMAND$="ram:lha X "+S$+" df0:"+Chr$(0)
  46. Dreg(1)=Varptr(COMMAND$)
  47. Dreg(2)=0
  48. Dreg(3)=0
  49. XEXECUTE=Doscall(-222)
  50. Amos To Front 
  51.  
  52.  
  53. 'Erase lha from memory 
  54. '----------------------  
  55. Kill "ram:lha"
  56. Print : Print "ALL DONE"
  57. End Proc